home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / feb94 / gh_fig09.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  49KB  |  600x354  |  8-bit (256 colors)
Labels: text | screenshot | display | software | font | number
OCR: MAINFORM :: #Form1 :: menuAction method menuAction(var eventInfo MenuEvent) var openForms Array[] String endVar if not eventInfo.isPreFilter() then if eventInfo.id() = MenuControlClose then ; This form will itself appear in the array of open forms, ; so we will test whether there are two or more open forms. enumFormNanes (openForns) if openForms.size() > 1 then msgInfo("Sorry", "Forms are still open on the desktop. \n"+ "You cannot close this form") disableDefault return endIf endif endIf endMethod + Line: 7 Col: 1